home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Write3 / REXX / View.wrx < prev   
Encoding:
Text File  |  1996-09-27  |  1.8 KB  |  111 lines
  1. /*
  2.  * dieses Script arbeitet genauso wie open.wrx nur das es anstatt
  3.  * dem voreingestellten Konfigurationfile, den Konfigurationsfile
  4.  * "VIEW.CONFIG" läd
  5.  *
  6.  * usage : rx VIEW.wrx [#screen] [#run] FileName
  7.  *
  8.  */
  9.  
  10. IF ~show('P',"WRITE")
  11. THEN DO
  12.   IF Open(File,"ENV:WRITE",r) THEN DO
  13.     WRITEPATH = READLN(File)
  14.     Close(File)
  15.  
  16.     ADDRESS "COMMAND"
  17.     "run >NIL: <NIL: " || WRITEPATH
  18.     "SYS:REXXC/WaitForPort <NIL: >NIL: WRITE"
  19.   END
  20.   ELSE DO
  21.     say "Kann WRITE nicht finden !"
  22.   END
  23. END
  24.  
  25. PARSE ARG A.1 A.2 A.3 A.4
  26.  
  27. runit    = FALSE
  28. screenit = FALSE
  29. FileName = ""
  30. ViewName = "VIEW.CONFIG"
  31.  
  32. ViewName = A.1
  33.  
  34. DO i = 2 TO 4
  35.   IF A.i="#run" THEN DO
  36.     runit = TRUE
  37.   END
  38.   ELSE DO
  39.     IF A.i="#screen" THEN DO
  40.       screenit = TRUE
  41.     END
  42.     ELSE DO
  43.       IF A.i~="" THEN DO
  44.         FileName=A.i
  45.       END
  46.     END
  47.   END
  48. END
  49.  
  50. FileName=strip(FileName)
  51. FileName=strip(FileName,'B','"')
  52.  
  53. IF length(FileName)~=0
  54. THEN DO
  55.   IF pos(':',FileName)=0
  56.   THEN DO
  57.    DirName=pragma('D')
  58.    IF right(DirName,1)~=':' THEN
  59.      DirName=DirName||'/'
  60.    FileName=DirName||FileName
  61.   END
  62. END
  63.  
  64. ADDRESS "WRITE"
  65.  
  66. OPTIONS RESULTS
  67.  
  68. 'VERSIONCHECK 3848 "View.wrx"'
  69. IF RC~=0 THEN DO
  70.   exit 10
  71. END
  72.  
  73. 'NEWED "VIEW.CONFIG"'
  74. ID = RESULT
  75. OPENPORT ID
  76. Port = RESULT
  77. IF Port = ""
  78. THEN DO
  79.   "MESSAGEOK (REXX-script 'mailer.wrx' :\nSorry, no more private ports!)"
  80.   EXIT
  81. END
  82.  
  83. INTERPRET ADDRESS Port
  84.  
  85. "WINDOW 0 0 0 0"
  86.  
  87. "SETVAR (_Path) ("||FileName||")"
  88. IF length(FileName)~=0
  89. THEN DO
  90.   IF exists(FileName) then
  91.     "OPEN ("||FileName||")"
  92.   ELSE
  93.     "SETVAR (_FileName) ("||FileName||")"
  94. END
  95.  
  96. IF (screenit = TRUE) & (runit = FALSE) THEN DO
  97.   MODIFYSCREEN 0
  98. END
  99.  
  100.  
  101. IF (runit = FALSE) THEN DO
  102.   WAITPORT ID
  103. END
  104.  
  105. IF (screenit = TRUE) & (runit = FALSE) THEN DO
  106.   IF show('P',"WRITE") THEN DO
  107.     ADDRESS "WRITE"
  108.     MODIFYSCREEN 1
  109.   END
  110. END
  111.